
If ProcessExists("Rogue Tools.exe") Then
	$f = 0
Else
	MsgBox(4096, "Rogue Tools?", "You need to be running Rogue Tools in order to use this control")
	Exit
EndIf

$filepr = FileOpen(@ProgramFilesDir & "\burnersware\Rogue Tools\include\vars\provokevars.txt", 0)
$speedpr = FileReadLine($filepr, 1)
$aa = FileReadLine($filepr, 2)
FileClose($filepr)

Global $resa = @DesktopWidth
Global $resb = @DesktopHeight
Global $winadded = $resa + $resb

If $winadded <> 1400 And $winadded <> 1792 And $winadded <> 2304 And $winadded <> 2800 Then
	nowinres()
EndIf

GUICreate("Rogue Provoking", 550, 380, -1, -1, -1, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
GUICtrlCreatePic(@ProgramFilesDir & "\burnersware\Rogue Tools\Include\img\burnerssidebarprovoke.jpg", 0, 22, 155, 360)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Auto Attack", 170, 80, 170, 75)
GUIStartGroup()
$eaa = GUICtrlCreateCheckbox("", 180, 115, 25, 15)
If $aa = 1 Then
	GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
GUICtrlCreateLabel("Enable Auto Attack", 205, 115, 125, 20)
GUIStartGroup()
GUICtrlCreateGroup("", -99, -99, 1, 1)

GUICtrlCreateGroup("Bot Program Speed", 365, 80, 170, 75)
$speednumberp = GUICtrlCreateSlider(377, 95, 150, 30)
GUICtrlSetLimit(-1, 3, 1)
GUICtrlSetData(-1, $speedpr)
GUICtrlCreateLabel("Slow", 377, 130, 50, 20)
GUICtrlSetFont(-1, 9, 450)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateLabel("Standard", 427, 130, 55, 20)
GUICtrlSetFont(-1, 9, 450)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateLabel("Ultra", 500, 130, 30, 20)
GUICtrlSetFont(-1, 9, 450)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", 465, 308, 80, 47)
$OKprovoke = GUICtrlCreateButton("RUN", 475, 325, 60, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetState(-1, $GUI_CHECKED)





GUISetState()
While 1
	$msg = GUIGetMsg()
	If $msg = $OKprovoke Then
		provokec()
		provoker()
	EndIf
	If $msg = $GUI_EVENT_CLOSE Then Exit
WEnd

Func provokec()
	$fileprovoke = FileOpen(@ProgramFilesDir & "\burnersware\Rogue Tools\include\vars\provokevars.txt", 2)
	FileWrite($fileprovoke, GUICtrlRead($speednumberp) & @CRLF)
	FileWrite($fileprovoke, GUICtrlRead($eaa) & @CRLF)
	FileClose($fileprovoke)
EndFunc ;==>provokec

Func provoker()
	Run("Rogue Provoking Bot.exe")
	Exit
EndFunc ;==>provoker

Func nowinres()
	MsgBox(4096, "Resolution Error", "Your current windows resolution is not supported _
			"  & @CRLF & " Please Switch To one of the four supported resolutions And restart Burners 7in1 Software"  & @CRLF & " These Include 800x600 & 1024x768 & 1280x1024 & 1600x1200 _
			" & @CRLF & " Thank You")
	Exit
EndFunc ;==>nowinres

